<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.ct1</name>
<id>-1</id>
<cardCount>2</cardCount>
<cardID>2864</cardID>
<listID>5160</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>440</height>
</cardSize>
<script>function pictureClickanswer "OK"send mouseDown to button Hereend pictureClickon startUpglobal mmChoiceglobal outChoiceglobal lastCardglobal lastBookglobal isLoadedglobal mainLocglobal lastLetterglobal voiceChoiceglobal speakNameput the number of lines in the voices into xif x > 0 thenput line x of voices() into voiceChoice -- this is "Fred"end ifput "a" into lastLetterput 0 into bigTextput the long name of this stack into mainLocput 0 into isLoadedset lockscreen to trueif "Audio Help" is in stacksInUse then stop using stack "Audio Help"set numberFormat to "0"-- delete menu 1delete menu "File"delete menu "Edit"delete menu "Go"delete menu "Font"delete menu "Style"create menu "File"put "Page Setup..." into menu "File"put "Print Card" after menuItem "Page Setup..." of menu "File"put "Print Image" after menuItem "Print Card" of menu "File"put "Print Text" after menuItem "Print Image" of menu "File"put "-" after menuItem 4 of menu "File"put "Close" after menuItem 5 of menu "File"put "-" after menuItem 6 of menu "File"put "Quit World Factbook" after menuItem 7 of menu "File"set the cmdChar of menuItem "Close" of menu "File" to "M"set the cmdChar of menuItem "Quit World Factbook" of menu "File" to "Q"set the cmdChar of menuItem "Print Card" of menu "File" to "P"create menu "Edit"put "Copy Text" into menu "Edit"put "Copy Image" after menuItem "Copy Text" of menu "Edit"set the cmdChar of menuItem "Copy Text" of menu "Edit" to "C"create menu "Go"put "Main" into menu "Go"put "Go Back" after menuItem "Main" of menu "Go"put "Help" after menuItem "Go Back" of menu "Go"put "Multimedia" after menuItem "Help" of menu "Go"put "Geographic Search" after menuItem "Multimedia" of menu "Go"put "Outline Search" after menuItem "Geographic Search" of menu "Go"put "Word Search" after menuItem "Outline Search" of menu "Go"put "Credits" after menuItem "Word Search" of menu "Go"put the number of lines in the voices into xif x > 0 thencreate menu "Reader"put "Read Text" into menu "Reader"put "Read Selected Text" after menuItem "Read Text" of menu "Reader"put "Choose voice…" after menuItem "Read Selected Text" of menu "Reader"end ifcreate menu "Options "put "Speak Name" into menu "Options "put "Search Here…" after menuItem "Speak Name" of menu "Options "put true into speakNameset checkMark of menuItem "Speak Name" of menu "Options " to speakNameAddColor install,8AddColor enable-- -- Requires handler: getHomeInfo,checkForMissingFonts-- -- gets and sets the user's preferences-- getHomeInfo-- -- audio Palette startup-- if there is a stack "Audio Help" then -- ∆-- start using stack "Audio Help" -- ∆-- send "startSound" to stack "Audio Help" -- ∆-- end if-- checkForMissingFonts -- inform user of missing fonts-- -- Start Color Tools-- lock screen-- lock messages-- lock recent-- push card-- go to cd 1 of stack Home-- if (there is a cd btn "Color Tools are ON") then-- if (the visible of cd btn "Color Tools are ON") and ¬-- (there is a stack "Color Tools") then-- start using stack "Color Tools" -- ∆-- send "AddColorInit" to stack "Color Tools"-- end if-- end if-- pop card-- unlock messages-- send "reset menubar" to this card-- unlock recent-- unlock screen-- -- End Color Tools-- pass startUp -- so others can use itput "Photos" into mmChoiceput "Countries" into outChoiceend startUp-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- on openStack-- AddColor install-- global QToperational-- global lastImage-- put 1 into QToperational-- set lockMessages to true-- QTMovie version-- put the result into xxxx-- put it into kkk-- if "Error" is in xxxx then-- answer "QuickTime is not available, some options will not be available"-- put 0 into QToperational-- end if-- set lockMessages to false-- put NULL into lastImage-- -- helpMenu -- Display CATEGORIES menu-- pass openStack-- end openStack------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on suspendStack -- Called upon HELP-- reset menuBar -- Don't display CATEGORIES menuend suspendStack------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on resumeStack -- Called upon return from HELP-- helpMenu -- Re-display CATEGORIES menuend resumeStack------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on helpMenu-- Display Help menuif there is a menu "Help" then exit helpMenucreate menu "Help"put helpMenuItems() into menu "Help"set the menuMessage of menuItem "Help Factbook" of Menu "Help" to go to Card 3end helpMenu------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------function helpMenuItemsreturn ¬"Help Factbook" & returnend helpMenuItemson wayzataGoTo cardNameset cursor to watchvisual iris open slowgo to card cardNameend wayzataGoToon wayzataGoToNum Num, cardNameset cursor to watchvisual iris open slowgo to card Numend wayzataGoToNumon wayzataGoToBackset cursor to watchvisual iris open slowgo to Backend wayzataGoToBackon WayzataGoPreviousset cursor to watchvisual iris open slowgo previousend WayzataGoPreviouson WayzataGoNextset cursor to watchvisual iris open slowgo nextend WayzataGoNexton wayzataViewMap nameput "WFB 1995:Maps:" & name into PICT-- put "" & name into PICTpicture PICT ,File,,,true,deepest-- Put the Result & " [" & PICT &"]"if the result is not empty thenanswer "The Map could not be displayed, error:" & return & the resultend ifend wayzataViewMapon wayzataViewXMap nameput "WFB 1995:reglmaps:" & name into PICT-- put "" & name into PICTpicture PICT ,File,,,true,deepest-- Put the Result & " [" & PICT &"]"if the result is not empty thenanswer "The Map could not be displayed, error:" & return & the resultend ifend wayzataViewXMapon wayzataViewChart nameput "WFB 1995:Charts:" & name into PICTpicture PICT ,File,,,true,deepest-- Put the Result & " [" & PICT &"]"if the result is not empty thenanswer "The Chart could not be displayed, error:" & return & the resultend ifend wayzataViewCharton findGlobalString-- Find string within global scope of the stack. When the string is found, the card in which-- it resides is opened, then a dialog is presented to find again. The domain for this search-- is the field "countryText" in all categories. The search string is retained as a-- global variable; it will be presented as the default for the next FIND.global findStringAsk "Please enter a word/phrase to find: " with findStringif the result is not "Cancel" thenput it into findStringPut "Find Next" into ansFindAgainrepeat while ansFindAgain is "Find Next"if findString is not Empty thenfind string findString in bg field "countryText"if the result is "not found" thenAnswer "'"&findString&"' was not Found" With "OK"put it into ansFindAgain -- OK forces Failure of Loopelseput the foundLine into myfoundLineput word 2 of myfoundLine into lineNumput line 1 of line lineNum of bg field countryText into foundNamewait 1 secondsAnswer "Found '"&foundName&"'."&return&&return&"Find '"&findString&"' Again?" With¬"Done" or "Find Next"put it into ansFindAgain -- Done forces Failure of Loopend ifelseput "null" into ansFindAgainend ifend repeatend ifend findGlobalStringon findLocalStringCountryask "Find"if the result is "Cancel" then-- the user clicked the Cancel buttonelse if it is empty then-- the user clicked OK with no answerelse-- the user clicked OK and provided an answer-- put the id of field "countryText" into fFieldif it is in background field "countryText" thenfind it in background field "countryText" of this cardif the result is "Not Found" thenanswer "Text Not Found:" && itend ifelseanswer "Text Not Found:" && itend ifend ifend findLocalStringCountryon findLocalStringask "Find"if the result is "Cancel" then-- the user clicked the Cancel buttonelse if it is empty then-- the user clicked OK with no answerelse-- the user clicked OK and provided an answer-- put the id of field "countryText" into fFieldif it is in background field "topicText" thenfind it in background field "topicText" of this cardif the result is "Not Found" thenanswer "Text Not Found:" && itend ifelseanswer "Text Not Found:" && itend ifend ifend findLocalStringon findChartStringask "Find"if the result is "Cancel" then-- the user clicked the Cancel buttonelse if it is empty then-- the user clicked OK with no answerelse-- the user clicked OK and provided an answer-- put the id of field "countryText" into fFieldif it is in background field "highList" thenfind it in background field "highList" of this cardif the result is "Not Found" thenanswer "Text Not Found:" && itend ifelseanswer "Text Not Found:" && itend ifend ifend findChartStringon findGroupStringask "Find"if the result is "Cancel" then-- the user clicked the Cancel buttonelse if it is empty then-- the user clicked OK with no answerelse-- the user clicked OK and provided an answer-- put the id of background field "groupText" into fFieldif it is in background field "groupText" thenfind it in background field "groupText" of this cardif the result is "Not Found" thenanswer "Text Not Found:" && itend ifelseanswer "Text Not Found:" && itend ifend ifend findGroupString---------------------------------------------------------------------------------------------------on openCardglobal lastImage-- answer "yes"-- lock screenSend colorMe to this card-- wait 1unlock screenif lastImage is empty thendisable menuItem "Print Image" of menu "File"disable menuItem "Copy Image" of menu "Edit"elseenable menuItem "Print Image" of menu "File"enable menuItem "Copy Image" of menu "Edit"end ifpass openCardend openCardon colorMeAddColor colorCard,stamp,30end colorMeon WTIprintImageput "WFB 1995:Maps:" & line 1 of background field shortname & ".PCT" into fNamePICTPrint fName, ""end WTIprintImageon WTIprintlastImageglobal lastImageif lastImage = NULL thenanswer "You need to first select an image to print it."elsePICTPrint lastImage, ""end ifend WTIprintlastImageon WTIprintChartsput "WFB 1995:Charts:" & line 1 of background field "HighName" into fNamePICTPrint fName, ""put "WFB 1995:Charts:" & line 1 of background field "LowName" into fNamePICTPrint fName, ""end WTIprintChartson WTIcopyImageput "WFB 1995:Maps:" & line 1 of background field shortname & ".PCT" into fName-- put "WFB 1995:maps:" & xImage & ".PCT" into fName-- put fNamePICTtoScrap fNameend WTIcopyImageon AC_Transistionsend AC_Transistionson AC_SetTransistionsend AC_SetTransistionson resumeStack-- disable menuItem "Print Text" of menu "File"-- disable menuItem "Print Image" of menu "File"-- enable menu "Edit"-- enable menu "Go"-- disable menuItem "Copy Text" of menu "Edit"-- disable menuItem "Copy Image" of menu "Edit"-- -- put the number of lines in the voices into x-- -- if x > 0 then-- -- enable menu "Voices"-- -- end ifend resumeStack-- on openCard-- Send colorMe to this card-- pass openCard-- unlock screen-- end openCardon doMenu menuItemglobal mainLocglobal speakNameglobal lastImageif menuItem is "Go Back" thenWTIgobackelse if menuItem is "Help" thenWTIhelpexit doMenuelse if menuItem is "Main" thenWTImainexit doMenuelse if menuItem is "Multimedia" thenWTImmediaexit doMenuelse if menuItem is "Outline Search" thenWTIoutlineexit doMenuelse if menuItem is "Word Search" thengo to card 2 of mainLocexit doMenuelse if menuItem is "Credits" thenWTIcreditsexit doMenuelse if menuItem is "Geographic Search" thenWTIgeosearchexit doMenuelse if menuItem is "About Hypercard..." thenWTIcreditsexit doMenuelse if menuItem is "Choose voice…" thenchooseVoiceexit doMenuelse if menuItem is "Read Selected Text" thenreadSelTextexit doMenuelse if menuItem is "Search Here…" thenask "Enter text to search here:"if the result is "Cancel" then-- the user clicked the Cancel buttonelse if it is empty then-- the user clicked OK with no answerelsefind itif the result is "Not Found" thenanswer "Text Not Found:" && itend ifend ifexit doMenuelse if menuItem is "Speak Name" thenput not speakName into speakNameset checkMark of menuItem "Speak Name" of menu "Options " to speakNameexit doMenuelse if menuItem is "Print Image" thenif lastImage is not empty thenPICTPrint lastImageend ifexit doMenu-- else if menuItem is "Print Text" then-- exit doMenu-- else if menuItem is "Read Text" then-- exit doMenuelse if menuItem is "Copy Image" thenif lastImage is not empty thenPICTtoScrap lastImageend ifexit doMenuelse if menuItem is "Quit World Factbook" thendoMenu "Quit HyperCard"exit doMenuend ifpass doMenuend doMenuon WTImainglobal mainLocgo to card 1 of mainLocend WTImainon WTIhelpgo to card 2 of stack "WFB 1996:mac:World Factbook 1996"end WTIhelpon WTImmediago to card 3 of stack "WFB 1996:mac:World Factbook 1996"end WTImmediaon WTIoutlinego to card 4 of stack "WFB 1996:mac:World Factbook 1996"end WTIoutlineon WTIgeosearchgo to card 5 of stack "WFB 1996:mac:World Factbook 1996"end WTIgeosearchon WTIcreditsgo to card 6 of stack "WFB 1996:mac:World Factbook 1996"end WTIcreditson closeCardset cursor to 4lock screenpass closeCardend closeCardon colorMeAddColor colorCard,stamp,30end colorMeon openStackset lockscreen to trueAddColor installdisable menuItem "Print Text" of menu "File"disable menuItem "Print Image" of menu "File"enable menu "Edit"enable menu "Go"disable menuItem "Copy Text" of menu "Edit"disable menuItem "Copy Image" of menu "Edit"put the number of lines in the voices into xif x > 0 thendisable menuItem "Read Selected Text" of menu "Reader"end if-- put the number of lines in the voices into x-- if x > 0 then-- enable menu "Voices"-- end ifpass openStackset lockscreen to falseend openStackon closeStackAddColor remove-- disable menu "Voices"pass closeStackend closeStackon WTIgobackglobal lastCard-- global lastBook-- global lastBookN-- go to card lastCard of lastBookgo to recent cardend WTIgobackon readSelTextglobal voiceChoicestop speech-- put the selectedTextput the selectedText into x-- put xspeak x with voice voiceChoiceend readSelTexton chooseVoiceglobal voiceChoiceput the number of lines in the voices into xif x > 0 then-- put line x of voices() into voiceChoice-- put voices() into xput 1 into yput "Type voice in name to use:" & return into vChoicesrepeat until x < 1if x > 1 thenput line x of voices() & ", " after last character of vChoiceselseput line x of voices() after last character of vChoicesend ifput x - 1 into xput y + 1 into yif y > 40 thenexit repeatend ifend repeatask vChoices with voiceChoiceput it into xChoiceif xChoice is in vChoices thenput xChoice into voiceChoicespeak "Now using this voice." with voice voiceChoiceend ifend ifend chooseVoiceon getStackPage loc4global xAREAglobal xCARDput the first character of loc4 into xLocput char 2 to 4 of loc4 into pNumput pNum into xCARDif xLoc is "A" thenput "WFB 1996:Mac:Appendices" into xAREAelseif xLoc is "B" thenput "WFB 1996:Mac:Background Notes" into xAREAelseif xLoc is "C" thenput pNum + 29 into pNumput pNum into xCARDput "WFB 1996:Mac:World Factbook 1996" into xAREAelseif xLoc is "E" thenput "WFB 1996:Mac:Economics" into xAREAelseif xLoc is "H" thenput "WFB 1996:Mac:Human Rights" into xAREAelseif xLoc is "T" then -- Topicsput pNum + 392 into pNumput pNum into xCARDput "WFB 1996:Mac:World Factbook 1996" into xAREAelseif xLoc is "X" then -- Terrorput pNum + 342 into pNumput pNum into xCARDput "WFB 1996:Mac:World Factbook 1996" into xAREAelseput empty into xAREAend ifend ifend ifend ifend ifend ifend ifend getStackpageon WTIgotoWFBPage locationglobal xAREAglobal xCARD-- "World Factbook 1996"put char 1 to 4 of location into xLocgetStackPage xLocput xAREA into xCStackput xCARD into xCardnumput char 5 to 8 of location into yLocgetStackPage yLocput xAREA into yCStackput xCARD into yCardnum-- put "go to card " & xCardNum && xCStackif yCStack is not empty thengo to card yCardnum of stack yCStackgo to card xCardnum of stack xCStack in a new windowelsego to card xCardnum of stack xCStackend ifend WTIgotoWFBPage</script>
